home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / window.gc < prev   
Text File  |  1999-05-14  |  2KB  |  76 lines
  1. G4C
  2.  
  3. ; ---- One window has a button which allows you to open another window. 
  4. ;      The second window really is a separate gui in its own right.
  5. ;      It could have been handled in its own separate script, but
  6. ;      here it serves as an example of using the NEWFILE command, 
  7. ;      which allows the script for the second gui to be contained 
  8. ;      within the file you are now reading.
  9. ;      See below under NEWFILE.
  10.  
  11. WinBig 100 -1 200 150 "Window.gc"
  12. WinType 11110001
  13.  
  14. BOX 0 0 0 0 OUT RIDGE
  15.  
  16. xonLoad
  17.     ; ----- The second button and the instructions are a
  18.     ;       distraction until the second window has been
  19.     ;       opened, so we hide them till needed. 
  20.     setgad Window.gc 1/5 HIDE
  21.     GuiLoad Work:Tutorial/Window2.gc
  22.     GuiOpen Window.gc
  23.  
  24. xonClose
  25.     ; ---- We quit both guis
  26.     GuiQuit Window2.gc
  27.     GuiQuit Window.gc
  28.  
  29. Text 20 25 160 12 "It's hot in here ..." 22 NOBOX
  30.  
  31. xButton 20 40 160 12 'Open another Window'
  32.     ; ---- open the other gui
  33.     GuiOpen Window2.gc
  34.     ; ---- As soon as the second window has been opened,
  35.     ;      the other button and the instructions need to
  36.     ;      be seen, and so we show them.
  37.     setgad Window.gc 1/5 SHOW
  38.     Redraw Window.gc
  39.  
  40. xButton 38 120 104 12 'Now close it'
  41.     gadid 1
  42.     GuiClose Window2.gc
  43.     setgad Window.gc 1 HIDE
  44.     Redraw Window.gc
  45.  
  46. Text 10 60 100 12 'Have a good look at' 20 NOBOX
  47.     gadid 2
  48. Text 10 70 100 12 'the script.  This is' 20 NOBOX
  49.     gadid 3
  50. Text 10 80 100 12 'a bit more complicated' 23 NOBOX
  51.     gadid 4
  52. Text 10 90 100 12 'than it looks.' 14 NOBOX
  53.     gadid 5
  54.  
  55.  
  56. ; ==================================================================
  57. ; -  THIS IS ANOTHER GUI - the new window, using the NEWFILE command
  58. ; ==================================================================
  59.  
  60. NEWFILE Window2.gc
  61.  
  62. WinBig 310 -1 200 50 "Window2.gc"  ; Size, position, title
  63. WinType 11110001                   ; System  gadgets, etc
  64.  
  65. ; xonLoad 
  66. ; NOTE - we can not have an xOnLoad command here, since this is a
  67. ; multi-gui file.. *Only* the xOnLoad commands of the 1st gui
  68. ; will be executed! - All other events are allowed though..
  69.  
  70.  
  71. Text 10 20 160 12 "I'm his kid brother..." 24 NOBOX
  72.  
  73.  
  74.  
  75.  
  76.